home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / TIEDEMO3.ZIP;1 / SOURCE / ICON898.TS / ICON898.TS
Encoding:
Text File  |  1993-04-01  |  1.2 KB  |  52 lines
  1. unit    icon898:10    $$ vector graphics/text block
  2. 898        $$ label - return here if invalid input
  3. enable  touch
  4. pause   keys=all
  5. disable touch
  6. if      ((zkey = touch $and$ (ztouchx > 534) $and$ (ztouchy > 385) $and$ (ztouchx < 631) $and$ (ztouchy < 418)))
  7. .       calc    TOUCHBOX _ 0
  8. .       branch  898end
  9. endif
  10. if      ((zkey = touch $and$ (ztouchx > 486) $and$ (ztouchy > 129) $and$ (ztouchx < 548) $and$ (ztouchy < 217)))
  11. .       calc    TOUCHBOX _ 1
  12. .       branch  898end
  13. endif
  14. style   outline
  15. style   thickness,1
  16. style   dash  $$ solid line style
  17. if      zkey = "a"
  18. .       do      menukey1
  19. .       branch  898
  20. endif
  21. if      zkey = "r"
  22. .       do      menukey1
  23. .       branch  898
  24. endif
  25. if      zkey = "q"
  26. .       do      menukey1
  27. .       branch  898
  28. endif
  29. if      zkey = "b"
  30. .       do      menukey1
  31. .       branch  898
  32. endif
  33. if      zkey = "o"
  34. .       do      menukey1
  35. .       branch  898
  36. endif
  37. if      zkey = "n"
  38. .       do      menukey1
  39. .       branch  898
  40. endif
  41. if      zkey = "f"
  42. .       do      menukey1
  43. .       branch  898
  44. endif
  45. if      zkey = "h"
  46. .       do      menukey1
  47. .       branch  898
  48. endif
  49. branch  898   $$ not valid input - get again
  50. 898end
  51. disable touch
  52.